VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "DAOConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private mvarConnection As utilConexion
Public Sub setConnection(ByVal vData As utilConexion)
    Set mvarConnection = vData
End Sub
Public Function getConfig() As BConfig
Dim sql As String
Dim rst As New Recordset
Dim bean As New BConfig
sql = "select logsucesos, mailsucesos from configuracion"
rst.Open sql, mvarConnection.Connection, adOpenForwardOnly
If Not rst.EOF Then
    If Not IsNull(rst.Fields("logsucesos").value) Then bean.guardarHistorialSucesos = rst.Fields("logsucesos").value
    If Not IsNull(rst.Fields("mailsucesos").value) Then bean.setTipoPos rst.Fields("mailsucesos").value
End If
Set getConfig = bean
End Function
Public Function guardar(bean As BConfig) As Boolean
Dim sql As String
sql = "update configuracion set "
mvarConnection.Connection.Execute sql
End Function
